home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / UNIXLIB37B / src / sys / s / _math < prev    next >
Text File  |  1991-12-28  |  2KB  |  165 lines
  1. ;    /* _math.s (c) Copyright 1990 H.Rogers */
  2.  
  3. a1 RN 0
  4. a2 RN 1
  5. a3 RN 2
  6. a4 RN 3
  7. v1 RN 4
  8. v2 RN 5
  9. v3 RN 6
  10. v4 RN 7
  11. v5 RN 8
  12. v6 RN 9
  13. sl RN 10
  14. fp RN 11
  15. ip RN 12
  16. sp RN 13
  17. lr RN 14
  18. pc RN 15
  19.  
  20. f0 FN 0
  21. f1 FN 1
  22. f2 FN 2
  23. f3 FN 3
  24. f4 FN 4
  25. f5 FN 5
  26. f6 FN 6
  27. f7 FN 7
  28.  
  29.     AREA    |C$$code|,CODE,READONLY
  30.  
  31.     EXPORT    acos
  32. acos
  33.     STMFD    sp!,{a1,a2}
  34.     LDFD    f0,[sp],#8
  35.     ACSD    f0,f0
  36.     MOVS    pc,lr
  37.  
  38.     EXPORT    asin
  39. asin
  40.     STMFD    sp!,{a1,a2}
  41.     LDFD    f0,[sp],#8
  42.     ASND    f0,f0
  43.     MOVS    pc,lr
  44.  
  45.     EXPORT    atan
  46. atan
  47.     STMFD    sp!,{a1,a2}
  48.     LDFD    f0,[sp],#8
  49.     ATND    f0,f0
  50.     MOVS    pc,lr
  51.  
  52.     EXPORT    atan2
  53. atan2
  54.     STMFD    sp!,{a1,a2,a3,a4}
  55.     LDFD    f0,[sp],#8
  56.     LDFD    f1,[sp],#8
  57.     DVFD    f0,f1,f0
  58.     ATND    f0,f0
  59.     MOVS    pc,lr
  60.  
  61.     EXPORT    cos
  62. cos
  63.     STMFD    sp!,{a1,a2}
  64.     LDFD    f0,[sp],#8
  65.     COSD    f0,f0
  66.     MOVS    pc,lr
  67.  
  68.     EXPORT    sin
  69. sin
  70.     STMFD    sp!,{a1,a2}
  71.     LDFD    f0,[sp],#8
  72.     SIND    f0,f0
  73.     MOVS    pc,lr
  74.  
  75.     EXPORT    tan
  76. tan
  77.     STMFD    sp!,{a1,a2}
  78.     LDFD    f0,[sp],#8
  79.     TAND    f0,f0
  80.     MOVS    pc,lr
  81.  
  82.     EXPORT    exp
  83. exp
  84.     STMFD    sp!,{a1,a2}
  85.     LDFD    f0,[sp],#8
  86.     EXPD    f0,f0
  87.     MOVS    pc,lr
  88.  
  89.     EXPORT    log
  90. log
  91.     STMFD    sp!,{a1,a2}
  92.     LDFD    f0,[sp],#8
  93.     LGND    f0,f0
  94.     MOVS    pc,lr
  95.  
  96.     EXPORT    log10
  97. log10
  98.     STMFD    sp!,{a1,a2}
  99.     LDFD    f0,[sp],#8
  100.     LOGD    f0,f0
  101.     MOVS    pc,lr
  102.  
  103.     EXPORT    modf
  104. modf
  105.     STMFD    sp!,{a1,a2}
  106.     LDFD    f0,[sp],#8
  107.     RNDD    f1,f0
  108.     STFD    f1,[a3,#0]
  109.     SUFD    f0,f0,f1
  110.     MOVS    pc,lr
  111.  
  112.     EXPORT    pow
  113. pow
  114.     STMFD    sp!,{a1,a2,a3,a4}
  115.     LDFD    f0,[sp],#8
  116.     LDFD    f1,[sp],#8
  117.     POWD    f0,f0,f1
  118.     MOVS    pc,lr
  119.  
  120.     EXPORT    sqrt
  121. sqrt
  122.     STMFD    sp!,{a1,a2}
  123.     LDFD    f0,[sp],#8
  124.     SQTD    f0,f0
  125.     MOVS    pc,lr
  126.  
  127.     EXPORT    ceil
  128. ceil
  129.     STMFD    sp!,{a1,a2}
  130.     LDFD    f0,[sp],#8
  131.     FIXD    a1,f0
  132.     FLTD    f1,a1
  133.     CMFE    f1,f0
  134.     ADDLT    a1,a1,#1
  135.     FLTD    f0,a1
  136.     MOVS    pc,lr
  137.  
  138.     EXPORT    fabs
  139. fabs
  140.     STMFD    sp!,{a1,a2}
  141.     LDFD    f0,[sp],#8
  142.     ABSD    f0,f0
  143.     MOVS    pc,lr
  144.  
  145.     EXPORT    floor
  146. floor
  147.     STMFD    sp!,{a1,a2}
  148.     LDFD    f0,[sp],#8
  149.     FIXD    a1,f0
  150.     FLTD    f1,a1
  151.     CMFE    f1,f0
  152.     SUBGT    a1,a1,#1
  153.     FLTD    f0,a1
  154.     MOVS    pc,lr
  155.  
  156.     EXPORT    fmod
  157. fmod
  158.     STMFD    sp!,{a1,a2,a3,a4}
  159.     LDFD    f0,[sp],#8
  160.     LDFD    f1,[sp],#8
  161.     RMFD    f0,f0,f1
  162.     MOVS    pc,lr
  163.  
  164.     END
  165.